home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Contributed Scores / Harm Visser / Substitution III next >
Text File  |  1998-10-26  |  5KB  |  77 lines
  1. (def-orchestra 'orchestra 
  2.    all-instruments (i1 i2 i3)
  3. )
  4.  
  5. (init-msec '1/4 150)
  6.  
  7. (make zone1 '(-1000)) 
  8.  
  9. (def-section a
  10.   i1  
  11.     zone (gen-evolve 2 '(change-length times 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 3 '(change-length sub 240 x) '(600 600 600 600 600 600 600 600)))))
  12.     tonality (activate-tonality (chromatic c 3))
  13.     length  (gen-evolve 2 '(change-length times 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 3 '(change-length sub 240 x) '(600 600 600 600 600 600 600 600)))))
  14.     velocity (nthcdr 155 (gen-variants 0.340 3 (gen-evolve 10 '(change-length times 1.07 x) '(60 60 60 60 60 60 60 60))))
  15.     duration (gen-evolve 2 '(change-length times 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 3 '(change-length sub 240 x) '(600 600 600 600 600 600 600 600)))))
  16.     channel '(1)
  17.     symbol (change-to-symbols (gen-evolve 2 '(change-length times 1.3 x) (gen-evolve 2 '(change-length divide 1.8 x) (gen-evolve 2 '(change-length sub 8 x) '(0 5 4 3 11 14 10 6)))))
  18.     
  19.   i2  
  20.     zone (gen-evolve 2 '(change-length times 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 3 '(change-length sub 240 x) '(600 600 600 600 600 600 600 600)))))
  21.     tonality (activate-tonality (chromatic c 5))
  22.     length  (gen-evolve 2 '(change-length times 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x)  (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 3 '(change-length sub 240 x) '(600 600 600 600 600 600 600 600)))))
  23.     velocity (nthcdr 155 (gen-variants 0.340 3 (gen-evolve 10 '(change-length times 1.07 x) '(60 60 60 60 60 60 60 60))))
  24.     duration (gen-evolve 2 '(change-length times 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 3 '(change-length sub 240 x) '(600 600 600 600 600 600 600 600)))))
  25.     channel '(1)
  26.     symbol (change-to-symbols (gen-evolve 2 '(change-length times 1.3 x) (gen-evolve 2 '(change-length divide 1.8 x) (gen-evolve 2 '(change-length sub 4 x) '(0 5 4 3 11 14 10 6)))))
  27.       
  28.   i3  
  29.     zone (gen-evolve 2 '(change-length times 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 3 '(change-length sub 225 x) '(600 600 600 600 600 600 600 600)))))
  30.     tonality (activate-tonality (chromatic c 6))
  31.     length  (gen-evolve 2 '(change-length times 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x)  (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 3 '(change-length sub 240 x) '(600 600 600 600 600 600 600 600)))))
  32.     velocity (nthcdr 155 (gen-variants 0.340 3 (gen-evolve 10 '(change-length times 1.07 x) '(60 60 60 60 60 60 60 60))))
  33.     duration (gen-evolve 2 '(change-length times 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 2 '(change-length divide 1.5 x) (gen-evolve 3 '(change-length sub 240 x) '(600 600 600 600 600 600 600 600)))))
  34.     channel '(1)
  35.     symbol (change-to-symbols (gen-evolve 2 '(change-length times 1.5 x) (gen-evolve 2 '(change-length divide 1.8 x) (gen-evolve 2 '(change-length sub 4 x) '(0 5 4 3 11 14 10 6))))))
  36.       
  37.  
  38. (clone-section a b
  39.   except
  40.    i1  
  41.     zone (append zone1 (gen-evolve 5 '(change-length divide 1.5 x) '(250 250 250 250 250 250 250 250)))
  42.     tonality (activate-tonality (chromatic c 2))
  43.     length  (gen-evolve 5 '(change-length divide 1.5 x) '(250 250 250 250 250 250 250 250))
  44.     velocity (nthcdr 155 (gen-variants 0.340 3 (gen-evolve 10 '(change-length times 1.07 x) '(60 60 60 60 60 60 60 60))))
  45.     duration (gen-evolve 5 '(change-length divide 1.5 x) '(250 250 250 250 250 250 250 250))
  46.     channel '(3)
  47.     symbol (change-to-symbols (gen-evolve 5 '(change-length times 1.1 x) '(0 5 4 3 11 14 10 6)))
  48.     
  49.   i2  
  50.     zone (append zone1 (gen-evolve 5 '(change-length divide 1.5 x) '(250 250 250 250 250 250 250 250)))
  51.     tonality (activate-tonality (chromatic c 5))
  52.     length  (gen-evolve 5 '(change-length divide 1.5 x) '(250 250 250 250 250 250 250 250))
  53.     velocity (nthcdr 155 (gen-variants 0.340 3 (gen-evolve 10 '(change-length times 1.07 x) '(60 60 60 60 60 60 60 60))))
  54.     duration (gen-evolve 5 '(change-length divide 1.5 x) '(250 250 250 250 250 250 250 250))
  55.     channel '(3)
  56.     symbol (change-to-symbols (gen-evolve 5 '(change-length times 1.1 x) '(0 5 4 3 11 14 10 6)))
  57.       
  58.   i3  
  59.     zone (append zone1 (gen-evolve 5 '(change-length divide 1.5 x) '(250 250 250 250 250 250 250 250)))
  60.     tonality (activate-tonality (chromatic c 6))
  61.     length  (gen-evolve 5 '(change-length divide 1.5 x) '(250 250 250 250 250 250 250 250))
  62.     velocity (nthcdr 155 (gen-variants 0.340 3 (gen-evolve 10 '(change-length times 1.07 x) '(60 60 60 60 60 60 60 60))))
  63.     duration (gen-evolve 5 '(change-length divide 1.5 x) '(250 250 250 250 250 250 250 250))
  64.     channel '(3)
  65.     symbol (change-to-symbols (gen-evolve 5 '(change-length times 1.1 x) '(0 5 4 3 11 14 10 6)))
  66. )
  67.  
  68. (midiport :printer)
  69.  
  70. (def-tempo 150) 
  71.  
  72. (play-file-P nil
  73.     all-instruments '(a b)
  74. )
  75.  
  76.  
  77.